home *** CD-ROM | disk | FTP | other *** search
/ Your Choice 3 / Your Choice Software Collection 3.iso / os2 / pluma112 / francais.cmd < prev    next >
OS/2 REXX Batch file  |  1994-09-13  |  4KB  |  141 lines
  1. /* FRANCAIS.CMD : Installation de PLUMA version française. */
  2.  
  3. '@Echo Off'
  4.  
  5. /* Nom de l'objet à installer */
  6.  
  7. Title = 'Pluma 1.12'
  8.  
  9.  
  10. /* Chargement de REXXUTIL */
  11.  
  12. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  13. Call SysLoadFuncs
  14.  
  15.  
  16. /* Initialisations */
  17.  
  18. Signal On Failure Name FAILURE
  19. Signal On Halt Name HALT
  20. Signal On Syntax Name SYNTAX
  21.  
  22. Call SysCls
  23. Say 'Installation de PLUMA...'
  24. Say ''
  25.  
  26.  
  27. /* Vérification de l'existance des différents fichiers */
  28.  
  29. Language = 'FRANCAIS'
  30.  
  31. Result = SysFileTree( 'PLUMA.EXE', 'Files', 'F' )
  32. If Files.0 = 0 Then
  33.    Do
  34.    Say 'ERREUR : PLUMA.EXE introuvable !'
  35.    Signal DONE
  36.    End
  37.  
  38. Result = SysFileTree( Language".DLL", 'Files', 'F' )
  39. If Files.0 = 0 Then
  40.    Do
  41.    Say 'ERREUR : 'Language'.DLL introuvable !'
  42.    Signal DONE
  43.    End
  44.  
  45. Result = SysFileTree( Language".HLP", 'Files', 'F' )
  46. If Files.0 = 0 Then
  47.    Do
  48.    Say 'ERREUR : 'Language'.HLP introuvable !'
  49.    Signal DONE
  50.    End
  51.  
  52. /* Saisie du répertoire de destination */
  53.  
  54. Say 'Veuillez saisir le nom complet du répertoire où PLUMA'
  55. Say '  doit être installé (par défaut, C:\OS2\APPS) : '
  56. Pull Directory
  57. If Directory = "" Then Directory = 'C:\OS2\APPS'
  58.  
  59.  
  60. /* Si nécessaire, création du répertoire destination */
  61.  
  62. Result = SysFileTree( Directory, 'Dirs', 'D' )
  63. If Dirs.0 = 0 Then
  64.    Do
  65.    Result = SysMkDir( Directory )
  66.    if Result == 0 Then
  67.       Do
  68.       End
  69.    Else
  70.       Do
  71.       Say 'ERREUR : Impossible de créer le répertoire destination.'
  72.       Signal DONE
  73.       End
  74.    End
  75. Say ''
  76.  
  77.  
  78. /* Installation. */
  79.  
  80. Say 'Copie de PLUMA dans ' Directory '...'
  81. Copy PLUMA.EXE Directory                   '1>NUL'
  82. Copy PLUMA.ICO Directory                   '1>NUL'
  83. Copy Language".DLL" Directory"\PLUMA.DLL"  '1>NUL'
  84. Copy Language".HLP" Directory"\PLUMA.HLP"  '1>NUL'
  85. Copy Language".DOC" Directory"\PLUMA.DOC"  '1>NUL'
  86.  
  87. Result = SysFileTree( Language".INF", 'Files', 'F' )
  88. If Files.0 > 0 Then
  89. Do
  90.    Copy Language".INF" Directory"\PLUMA.INF"  '1>NUL'
  91. End
  92.  
  93. Say 'Création du dossier...'
  94. Type = 'WPFolder'
  95. Folder = '<WP_DESKTOP>'
  96. Parms = "OPEN=ICON;OBJECTID=<PLUMAF>;ICONFILE="Directory"\PLUMA.ICO;"
  97. Result = SysCreateObject( Type, 'Pluma', Folder, Parms, 'ReplaceIfExists' )
  98. If Result != 1 Then
  99.    Say 'ERREUR : Le dossier n'D2C(39)'a pas été créé.'
  100.  
  101. Say 'Création de l'D2C(39)'objet programme...'
  102. Type = 'WPProgram'
  103. Folder = '<PLUMAF>'
  104. Parms = "MINWIN=DESKTOP;PROGTYPE=PM;EXENAME="Directory"\PLUMA.EXE;STARTUPDIR="Directory";OBJECTID=<PLUMA>;NOPRINT=YES;ASSOCTYPE=Pluma;"
  105. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  106. If Result != 1 Then
  107.    Say 'ERREUR : L'D2C(39)'objet n'D2C(39)'a pas été créé.'
  108.  
  109. Say 'Création des objets documentation...'
  110. Type = 'WPShadow'
  111. Parms = "SHADOWID="Directory"\PLUMA.DOC;OBJECTID=<PLUMAD>;"
  112. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  113. If Result != 1 Then
  114.    Say 'ERREUR : L'D2C(39)'objet documentation n'D2C(39)'a pas été créé.'
  115.  
  116. Result = SysFileTree( Directory"\PLUMA.INF", 'Files', 'F' )
  117. If Files.0 > 0 Then Do
  118.    Parms = "SHADOWID="Directory"\PLUMA.INF;OBJECTID=<PLUMAI>;"
  119.    Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  120.    If Result != 1 Then Do
  121.       Say 'ERREUR : L'D2C(39)'objet documentation n'D2C(39)'a pas été créé.'
  122.       End
  123.    End
  124.  
  125. Signal DONE
  126.  
  127. FAILURE:
  128. Say 'Échec REXX.'
  129. Signal DONE
  130.  
  131. HALT:
  132. Say 'Halte REXX.'
  133. Signal DONE
  134.  
  135. SYNTAX:
  136. Say 'REXX erreur de syntaxe.'
  137. Signal DONE
  138.  
  139. DONE:
  140. Exit
  141.